home *** CD-ROM | disk | FTP | other *** search
/ CD Exchange / CD Exchange - Volume 1.iso / utils / misc / muroloutil / test.bas (.txt) < prev   
Commodore BASIC  |  1991-06-06  |  1KB  |  31 lines
  1. 1 REM**********************************
  2. 2 REM*        APPEND PER C64          *
  3. 3 REM* BY --F.M. SOFT-- 84100 SALERNO *
  4. 4 REM*          14.05.85              *
  5. 5 REM*        PER F.I.D.O PZ          *
  6. 6 REM**********************************
  7. 10 I=49152:T=0
  8. 20 READ A:IF A=-1 THEN 50
  9. 40 POKEI,A:I=I+1:T=T+A:GOTO20
  10. 50 IF T<>9910 THEN PRINT"[147]ERRORE NEI VALORI 'DATA'":END
  11. 60 PRINT"[147][158]VALORI 'DATA' OK !"
  12. 65 PRINT"ISTRUZIONI:":PRINT"CARICARE IL PROGRAMMA PRINCIPALE E POI"
  13. 70 PRINT"BATTERE:":PRINT"[158]SYS49152";CHR$(34);"NOME PRG SECONDARIO";
  14. 80 PRINTCHR$(34);",PERIFERICA"
  15. 85 NEW
  16. 90 :
  17. 100 DATA 169,000,133,010,032,212,225
  18. 110 DATA 165,045,056,233,002,170,165
  19. 120 DATA 046,233,000,168,165,010,032
  20. 130 DATA 213,255,032,051,165,165,045
  21. 140 DATA 164,046,056,233,002,133,087
  22. 150 DATA 152,233,000,133,088,160,000
  23. 160 DATA 177,087,208,027,200,177,087
  24. 170 DATA 208,022,165,087,024,105,002
  25. 180 DATA 133,045,133,047,133,049,165
  26. 190 DATA 088,105,000,133,046,133,048
  27. 200 DATA 133,050,096,160,000,177,087
  28. 210 DATA 133,089,200,177,087,133,088
  29. 220 DATA 165,089,133,087,076,040,192
  30. 230 DATA -1
  31.